home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 43 / Amiga Format CD43 (1999)(Future Publishing)(GB)(Track 1 of 2)[!][issue 1999-09].iso / -serious- / wb / wbchanger / install_wbchanger < prev    next >
Text File  |  1999-06-15  |  9KB  |  356 lines
  1. ; Skrypt instalacyjny dla programu WBChanger (1998-1999)
  2. ;
  3. ;    $VER: WBChanger v0.6 by ZATOR (20.05.1999)
  4. ;
  5. ; 
  6.  
  7.  
  8.  
  9. (set #ver_comm (/ (getversion "libs:commodities.library") 65536))
  10. (set #ver_icon (/ (getversion "libs:icon.library") 65536))
  11. (set #ver_work (/ (getversion "workbench.library") 65536))
  12. (set #ver_dops (/ (getversion "libs:dopus5.library") 65536))
  13.  
  14. (set wybr
  15.     (askchoice
  16.         (prompt "Jëzyk/Language")
  17.         (help @askchoice-help)
  18.         (choices "ENGLISH (INGLISH)" "POLSKI")
  19.         (default 0)
  20.     )
  21. )
  22. (if (= wybr 1)
  23. (
  24. (set #witam "Witam w programie instalacyjnym programu\nWBChanger\nDziëki temu skryptowi zainstalujesz oraz skonfigurujesz program")
  25. (set #info ("\nWersje (zainstalowanych u ciebie) wymaganych bibliotek:\n\ndopus5.library - %ld (opcja DOPUS5)\ncommodities.library - %ld\n icon.library - %ld\n\n" #ver_dops #ver_comm #ver_icon))
  26. (set #gdzie "Gdzie zainstalowaê dodatkowe pliki dla WBChanger'a??")
  27. (set #help_gdzie "Te dodatkowe pliki sâ wymagane do poprawnej pracy WBChanger'a\nDo nich skopiujesz preferencje swojego Workbench'a...\nDo katalogu 1 - preferencje peînego Workbench'a/DOPUS'a\nDo katalogu 2 - preferencje okrojonego/drugiego Workbench'a/DOPUS'a\n\nNie kasuj pliku 'wbch', gdyû ten plik jest wymagany do poprawnej pracy programu!\n\nDo katalogów 1 i 2 kopiuj tylko pliki z 'ENV:Sys/' lub 'ENVARC:Sys/' !!!")
  28. (set #help_wbch "Skopiuj WorkbenchChanger'a do katalogu 'sys:WBSTARTUP/' jeôli chcesz aby program dziaîa po kaûdym wgraniu Workbench'a/Dopus'a")
  29. (set #tworze "Tworze katalog")
  30. (set #tworze_plik "Tworze plik")
  31. (set #kopiuj_wb "Gdzie skopiowaê program WBChanger?")
  32. (set #info_wd "Co uûywasz?")
  33. (set #workbench "Skrypt teraz skonfiguruje WBChanger'a pod Workbench'a")
  34. (set #wb_copy "Ustaw teraz jak ma wyglâdaê peîny Workbench\n i naciônij 'Kontynuuj'")
  35. (set #what_copy "Jakie ustawienia majâ sië zmieniaê?")
  36. (set #pl_wybor1 "Tryb wyôwietlania - screenmode.prefs")
  37. (set #pl_wybor2 "Podkîady - wbpattern.prefs")
  38. (set #pl_wybor3 "Paleta - palette.prefs")
  39. (set #info_copywb "Kopiuje pliki konfiguracyjne")
  40. (set #workbench_old "Ustaw teraz jak ma wyglâdaê niepeîny Workbench\n i naciônij 'Kontynuuj'")
  41. (set #info_sel "Jakie opcje majâ byê wîâczone/wyîâczone?")
  42. (set #info_sel1 "dodatkowa pozycja w menu górnej belki")
  43. (set #info_sel2 "dodatkowa ikonka na blacie")
  44. (set #help_wbdp "Opcja : \n Workbench - ustawiasz preferencje pod Workbench'a\n DOPUS5 - ustawiasz preferencje pod Opus'a 5^ i Workbench'a")
  45. (set #info_opus "Jeôli bëdziesz miaî jakieô problemy z opcjâ WB_OPUSMODE=ON\nTo po próbuj zmieniê parametr DELAY")
  46. (set #info_opus1 "Zrób dwie konfiguracje Opus'a jednâ peînâ, drugâ niepeînâ..\n Zapisz je pod dowolnymi nazwami i naciônij 'Kontynuuj'\n")
  47. (set #name_env1 "Podaj nazwe peînej konfiguracji")
  48. (set #name_env2 "Podaj nazwe okrojonej konfiguracji")
  49. (set #name_delay "Jakie ma byê opóûnienie miëdzy zmianâ konfiguracji DOPUSa, a WB (polecane min. 5)")
  50. ))
  51.  
  52. (if (= wybr 0)
  53. (
  54. (set #witam "Welcome in program installer to install programe\nWBChanger\nWith this script you install and configure programe")
  55. (set #info ("\nVersion (installed on your HD) of library:\n\ndopus5.library - %ld (opcja DOPUS5)\ncommodities.library - %ld\n icon.library - %ld\n\nP.S.\n  Sorry, my english is very poor, but better than my German.\nPlease if you have some free time fix my errors.\nAnd send correct version to me!!" #ver_dops #ver_comm #ver_icon))
  56. (set #gdzie "Where install additional files for WBChanger??")
  57. (set #help_gdzie "This file is need to correct work of programe WBChanger.'a\nTo this directory copy your configuration of WB...\nTo drawer 1 - preferences full workbench'a/DOPUS'a\nTo drawer 2 - preferences non-full Workbench/DOPUS\n\nDon't delette file 'wbch', this file is need to correct work programe!!\n\nTo drawer 1 and 2 copy only files from 'ENV:Sys/' or 'ENVARC:Sys/' !!!")
  58. (set #help_wbch "Copy WorkbenchChanger to 'sys:WBSTARTUP/' if you want to work this programe always when you load Workbench/Dopus")
  59. (set #kopiuj_wb "Where copy programe WBChanger?")
  60. (set #what_copy "Which preferences gonna change?")
  61. (set #pl_wybor1 "Screen Mode - screenmode.prefs")
  62. (set #pl_wybor2 "Patterns - wbpattern.prefs")
  63. (set #pl_wybor3 "Palette - palette.prefs")
  64. (set #tworze "Creating new directory")
  65. (set #tworze_plik "Creating new file")
  66. (set #info_wd "What you use??")
  67. (set #workbench "Script configure WBChanger for Workbench now")
  68. (set #wb_copy "Set how full Workbench have look now")
  69. (set #info_copywb "Copying configuration files")
  70. (set #workbench_old "Set how non-full Workbench have look now\n and press 'Continue'")
  71. (set #info_sel "Which options on/off?")
  72. (set #info_sel1 "extra position in appmenu")
  73. (set #info_sel2 "extra icon on the WB window")
  74. (set #help_wbdp "Option : \n Workbench - set preferences for Workbench'a\n DOPUS5 - set preferences for DOPUS 5^")
  75.  
  76.  
  77. (set #info_opus "IF you had any problems with option WB_OPUSMODE=ON\nThen try change parameter DELAY")
  78. (set #info_opus1 "Make 2 configurtion file for Opus.\n First - Full, Next - Non-full \n Save it and press 'Continue'\n")
  79. (set #name_env1 "Insert name of the full configuration file")
  80. (set #name_env2 "Insert name of the non-full configuration file")
  81. (set #name_delay "How long have delay between change Workbench configuration and DOpus5 configuration (recommend min. 5)")
  82. ))
  83.  
  84. (welcome #witam)
  85.  
  86. (message #info)
  87.  
  88. (set #wyb1
  89.     (askdir
  90.         (prompt #gdzie)
  91.         (default "DH0:tools/")
  92.         (help #help_gdzie)
  93.     )
  94. )
  95.  
  96. (set #wyb2 (tackon #wyb1 "WBCHANGER"))
  97.  
  98. (set #wyb3 (tackon #wyb2 "1"))
  99. (set #wyb4 (tackon #wyb2 "2"))
  100. (set #wyb5 (tackon #wyb2 "2/wbch1"))
  101.  
  102. (makedir #wyb2
  103.     (prompt #tworze) 
  104.     (safe)
  105.     (help #help_gdzie)
  106. )
  107.  
  108. (makedir #wyb3
  109.     (prompt #tworze) 
  110.     (help #help_gdzie)
  111. )
  112.  
  113. (makedir #wyb4
  114.     (prompt #tworze) 
  115.     (help #help_gdzie)
  116. )
  117.  
  118. (textfile
  119.     (prompt #tworze_plik)
  120.     (help #help_gdzie)
  121.     (dest #wyb5)
  122.     (append "YES\n")
  123. )
  124.  
  125. (set #wb_sel
  126. (copyfiles
  127.     (prompt #kopiuj_wb)
  128.     (source "WorkbenchChanger")
  129.     (dest "sys:wbstartup/")
  130.     (confirm)
  131.     (infos)
  132.     (help #help_wbch)
  133. )
  134. )
  135.  
  136.  
  137. (set wyb9
  138.     (askchoice
  139.         (prompt #info_wd)
  140.         (help #help_wbdp)
  141.         (choices "Workbench" "DOPUS5 & Workbench")
  142.         (default 0)
  143.     )
  144. )
  145.  
  146.  
  147. (
  148.  
  149. (message #workbench)
  150.  
  151. (message #wb_copy)
  152.  
  153. (set wybr4
  154.     (askoptions
  155.         (prompt #what_copy)
  156.         (help @askoptions-default)
  157.         (choices #pl_wybor1 #pl_wybor2 #pl_wybor3)
  158.     )
  159. )
  160.  
  161. (set #wybd (tackon #wyb1 "WBCHANGER/1/"))
  162.  
  163. (if (BITAND wybr4 %1)
  164. (
  165. (copyfiles
  166.     (prompt #info_copywb)
  167.     (source "ENV:sys/screenmode.prefs")
  168.     (dest #wybd)
  169.     (help @copyfiles-default)
  170. )))
  171.  
  172.  
  173. (if (BITAND wybr4 %10)
  174. (
  175. (copyfiles
  176.     (prompt #info_copywb)
  177.     (source "ENV:sys/wbpattern.prefs")
  178.     (dest #wybd)
  179.     (help @copyfiles-default)
  180. )))
  181.  
  182.  
  183. (if (BITAND wybr4 %100)
  184. (
  185. (copyfiles
  186.     (prompt #info_copywb)
  187.     (source "ENV:sys/palette.prefs")
  188.     (dest #wybd)
  189.     (help @copyfiles-default)
  190. )))
  191.  
  192. (message #workbench_old)
  193.  
  194. (set #wybd (tackon #wyb1 "WBCHANGER/2/"))
  195.  
  196. (if (BITAND wybr4 %1)
  197. (
  198. (copyfiles
  199.     (prompt #info_copywb)
  200.     (source "ENV:sys/screenmode.prefs")
  201.     (dest #wybd)
  202.     (help @copyfiles-default)
  203. )))
  204.  
  205.  
  206. (if (BITAND wybr4 %10)
  207. (
  208. (copyfiles
  209.     (prompt #info_copywb)
  210.     (source "ENV:sys/wbpattern.prefs")
  211.     (dest #wybd)
  212.     (help @copyfiles-default)
  213. )))
  214.  
  215.  
  216. (if (BITAND wybr4 %100)
  217. (
  218. (copyfiles
  219.     (prompt #info_copywb)
  220.     (source "ENV:sys/palette.prefs")
  221.     (dest #wybd)
  222.     (help @copyfiles-default)
  223. )))
  224.  
  225.  
  226. (set wybr5
  227.     (askoptions
  228.         (prompt #info_sel)
  229.         (help @askoptions-default)
  230.         (choices #info_sel1 #info_sel2)
  231.     )
  232. )
  233.  
  234. (set #wb_icon (tackon #wb_sel "WorkbenchChanger"))
  235.  
  236. (if (BITAND wybr4 %1)
  237. (
  238.     (tooltype 
  239.     (dest #wb_icon)
  240.     (settooltype "(WB_MENU")
  241.     )
  242.     (tooltype 
  243.     (dest #wb_icon)
  244.     (settooltype "WB_MENU" "ON")
  245.     )
  246. ))
  247.  
  248.  
  249. (if (BITAND wybr4 %10)
  250. (
  251.     (tooltype 
  252.     (dest #wb_icon)
  253.     (settooltype "(WB_ICON")
  254.     )
  255.     (tooltype 
  256.     (dest #wb_icon)
  257.     (settooltype "WB_ICON" "ON")
  258.     )
  259. ))
  260.  
  261.     (tooltype 
  262.     (dest #wb_icon)
  263.     (settooltype "WB_SOURCE")
  264.     )
  265.     (tooltype 
  266.     (dest #wb_icon)
  267.     (settooltype "WB_SOURCE" #wyb2)
  268.     )
  269.  
  270. )
  271.  
  272. (if (= wyb9 1)
  273. (
  274. (message #info_opus)
  275. (message #info_opus1)
  276.  
  277. (set #env1
  278.     (askstring
  279.         (prompt #name_env1)
  280.         (help @askstring-help)
  281.         (default "workbench")
  282.     )
  283. )
  284.  
  285. (set #env2
  286.     (askstring
  287.         (prompt #name_env2)
  288.         (help @askstring-help)
  289.         (default "workbench1")
  290.     )
  291. )
  292.  
  293. (set #dlay
  294. ("%ld" (set #delay
  295.     (asknumber
  296.         (prompt #name_delay)
  297.         (help @asknumber-help)
  298.         (range 1 30)
  299.         (default 5)
  300.     )
  301. )))
  302.  
  303.  
  304.     (tooltype 
  305.     (dest #wb_icon)
  306.     (settooltype "OPUS_ENV1")
  307.     )
  308.     (tooltype 
  309.     (dest #wb_icon)
  310.     (settooltype "OPUS_ENV1" #env1)
  311.     )
  312.  
  313.  
  314.     (tooltype 
  315.     (dest #wb_icon)
  316.     (settooltype "OPUS_ENV2")
  317.     )
  318.     (tooltype 
  319.     (dest #wb_icon)
  320.     (settooltype "OPUS_ENV2" #env2)
  321.     )
  322.  
  323.  
  324.  
  325.     (tooltype 
  326.     (dest #wb_icon)
  327.     (settooltype "WB_OPUSMODE")
  328.     )
  329.     (tooltype 
  330.     (dest #wb_icon)
  331.     (settooltype "WB_OPUSMODE" "ON")
  332.     )
  333.  
  334.     (tooltype 
  335.     (dest #wb_icon)
  336.     (settooltype "DELAY")
  337.     )
  338.     (tooltype 
  339.     (dest #wb_icon)
  340.     (settooltype "DELAY" #dlay)
  341.     )
  342.  
  343.  
  344.  
  345. ))
  346.  
  347.  
  348.  
  349. (if (= wybr 1)
  350.     (run "c:More WorkbenchChanger.docPL")
  351. )
  352. (if (= wybr 0)
  353.     (run "c:More WorkbenchChanger.docENG")
  354. )
  355.  
  356.